home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hottest 6
/
Hottest 6 (1996)(PDSoft)[!].iso
/
software
/
videoutils
/
a-g
/
ami2d
/
rexx
/
plstress.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1978-11-24
|
684b
|
30 lines
/* Ami2d init script for plane stress problems */
address ami2d
'plane'
'problem(struct)'
'set plane stress'
'set epsx=x1+(x1*x1+x2*x2)/2'
'set epsy=y2+(y1*y1+y2*y2)/2'
'set epsz=-0.5*c5*(epsx+epsy)/c4'
'set gamxy=x2+y1+x1*y1+x2*y2'
'set gam12=(0.25*(epsx-epsy)^2+0.25*gamxy^2)^0.5'
'set eps1=0.5*(epsx+epsy)+gam12'
'set eps2=0.5*(epsx+epsy)-gam12'
'set eps3=epsz'
'set sigx=c1*epsx+c5*epsy+c10*gamxy-f1'
'set sigy=c5*epsx+c2*epsy+c9*gamxy-f2'
'set sigz=0.0'
'set tauxy=c10*epsx+c9*epsy+c4*gamxy'
'set tau12=(0.25*(sigx-sigy)^2+tauxy^2)^0.5'
'set sig1=0.5*(sigx+sigy)+tau12'
'set sig2=0.5*(sigx+sigy)-tau12'
'set sig3=0.0'
'set sigh=(sigx+sigy+sigz)/3'
'set sigd=sig1-sigh'
exit